home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Programmer Power Tools
/
Programmer Power Tools.iso
/
pcresrc
/
pcr8808.arc
/
GETREPLY.BAS
< prev
next >
Wrap
BASIC Source File
|
1988-03-30
|
1KB
|
19 lines
100 OPEN "GETREPLY.COM" FOR OUTPUT AS 1
200 FOR I = 1 TO 135 : READ BYTE
300 PRINT#1, CHR$(BYTE); : NEXT I : CLOSE 1
400 PRINT "GETREPLY.COM created. Type SYSTEM to leave Basic."
1000 DATA 178, 7, 180, 2, 205, 33, 186, 134, 1, 180
1010 DATA 10, 205, 33, 178, 13, 180, 2, 205, 33, 178
1020 DATA 10, 180, 2, 205, 33, 186, 92, 0, 180, 22
1030 DATA 205, 33, 184, 128, 0, 187, 114, 1, 185, 20
1040 DATA 0, 138, 23, 135, 195, 136, 23, 135, 195, 64
1050 DATA 67, 226, 244, 138, 30, 113, 1, 128, 251, 0
1060 DATA 116, 18, 48, 219, 136, 30, 113, 1, 49, 201
1070 DATA 138, 14, 135, 1, 65, 187, 136, 1, 235, 217
1080 DATA 137, 195, 178, 10, 136, 23, 178, 26, 136, 87
1090 DATA 1, 5, 2, 0, 45, 128, 0, 163, 106, 0
1100 DATA 180, 21, 186, 92, 0, 205, 33, 180, 16, 205
1110 DATA 33, 205, 32, 255, 101, 99, 104, 111, 32, 111
1120 DATA 102, 102, 13, 10, 115, 101, 116, 32, 114, 101
1130 DATA 112, 108, 121, 61, 32
, 101, 99, 104, 111, 3